In this example we are using SQLClient.SqlConnection class.The following example creates and opens a SqlConnection.
Private Function CraeteSQLConnection() As DataSet Dim dsSerch As New DataSet Dim ConStr As String = "user id=sa;password=aeiouy;Initial Catalog=EmployeeDatabase;Data Source= PSPL-PC6" Dim sqlCon As New SqlClient.SqlConnection(ConStr) sqlCon.Open() Dim Str As String = "select empname from tbl_Employee" Dim SqlCom As New SqlClient.SqlCommand(Str, sqlCon) Dim sqlAdap As New SqlClient.SqlDataAdapter(SqlCom) sqlAdap.Fill(dsSerch) Return dsSerch End Function