Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
    Dim ls_value As String = txtClaimNum.Text
    Dim myDataReader As SqlDataReader
    Dim myAdapter As SqlDataAdapter
    Dim myDataSet As DataSet
    Dim ClaimsDS As DataSet
    Dim ClaimsDV As DataView
   

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        'Dim ls_sql As String
        'ClaimsDS = New DataSet
        Dim conn As SqlConnection = New SqlConnection("Data Source=xxxxT;Initial Catalog=xxxx;Persist Security Info=xxxxUser ID=xxxxxxxx")
        Dim myCommand As SqlCommand = New SqlCommand("select * from Claims where ID ='" & txtClaimNum.Text & "'")

        If ls_value <> " " Then
            Try
                conn.Open()
                myAdapter = New SqlDataAdapter(myCommand)
                myAdapter.Fill(ClaimsDS, "vw_Claims_Search")
                Me.txtInsuredName.DataBindings.Add("Text", ClaimsDS, "INSUREDNAME")
                Me.txtClaimant.DataBindings.Add("Text", ClaimsDS, "CLAIMANT")
                Me.txtDateofLoss.DataBindings.Add("Text", ClaimsDS, "LOSSDATE")
                Me.txtDateReported.DataBindings.Add("Text", ClaimsDS, "CLAIMMADEDATE")
                MsgBox("Connection opened")
            Catch ex As Exception
                MsgBox("Error: " & ex.ToString)
            End Try
            ' conn.Close()
            'MsgBox("Connection closed")
        End If

    End Sub
End Class