Imports System Imports System.Data Imports System.Data.SqlClient Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conTransit As SqlConnection = New SqlConnection("Server=devsql;Database=Transporter;Integrated Security=SSPI") conTransit.Open() MessageBox.Show("Conection succedded") conTransit.Close() End Sub End Class