INSERT con valori tutti null (mi vedete questa procedura?)

 Public Sub Inserisci2()
        strSql = "INSERT INTO tradregistrazione (" & _
       "RcodLingua," & _
       "immissioneDati," & _
       "Confermadati," & _
       "Prenota) VALUES (" & _
       "@RcodLingua," & _
       "@immissioneDati," & _
       "@Confermadati," & _
       "@Prenota)"

        CMD = New OdbcCommand(strSql, MyConn)
        With CMD

            .Parameters.Add("@RcodLingua", OdbcType.Int).Value = RcodLingua
            .Parameters.Add("@immissioneDati", OdbcType.VarChar).Value = immissioneDati
            .Parameters.Add("@Confermadati", OdbcType.VarChar).Value = Confermadati
            .Parameters.Add("@Prenota", OdbcType.VarChar).Value = Prenota

             Dim i As Integer = .ExecuteNonQuery()
        End With
        CMD = Nothing
    End Sub