Dim myConn As SqlConnection
Dim myCmd As SqlCommand
Dim myReader As SqlDataReader
Dim results As String
myConn = New SqlConnection("Initial Catalog=MyDataBase;Data Source=SQLServerName\SqlServerInstance;Uid=MyUser;Pwd=Pass123;")
myCmd = myConn.CreateCommand
myCmd.CommandText = "Select DataField from Tablename"
myConn.Open()
myReader = myCmd.ExecuteReader()
myReader.Read()
If myReader.GetValue(0) = 1 Then
Me. Hide()
Form2.Show()
End If