C#

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
             If TextBox1.Text = True Then
           
           Dim CardID As String = TextBox1.Text
           Dim endID As String = CardID.Substring(5)
           con = New SqlConnection("Data Source=10.1.2.215;Initial Catalog=eExitPass;Persist Security Info=True;User ID=sa1;Password=sa1")
           con.Open()
           a = Val(TextBox1.Text)
           sql = "select D.CardID, A.EmpNo, convert(varchar,A.pplyDate,100) As ApplyDate, C.Status, " & _
                          "from " & _
                          "EmpDetails A left join Clock_Time D on A.EmpNo = D.EmpNo left join Status C on A. Status = C.StatusID where A.EmpNo='" & TextBox2.Text & "' "
          
           da.Fill(ds, "db1")
           MsgBox("Database is now open")

           con.Close()
           MsgBox("Database is now Closed")
       Else
           MsgBox("Incorrect Serial Number")
       End If
   End Sub