Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
Try
ConnectionString = “Data Source= ” + txtdatasource.Text + “;Initial Catalog=” + txtinitialcat.Text + “;Integrated Security=SSPI;User ID=sa;Password=test;Connection Timeout=60”
MessageBox.Show(ConnectionString)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Thys Michels Blog 