Class Connect
    Dim Cn As OleDb.OleDbConnection
    Dim Da As OleDb.OleDbDataAdapter
    Dim Ds As DataSet
    Public Function FillDs(Sql as String)  As DataSet
            Cn = New OleDb.OleDbConnection(GetConnectionString())
            Da = New OleDb.OleDbDataAdapter
            Ds = New DataSet
            Da = New OleDb.OleDbDataAdapter(Sql, Me.GetConnectionString)
            Da.Fill(Ds, 0)
            Return Ds
    End Function
 Public Function GetConnectionString() As String
    Return "Provider=" ' Hier muss dein MSSQL Provider rein; den hab ich leider 
    ' gerade nicht im Kopf   
    End Function
 End Class 
' In Form 
Dim Cn as new Connect
DataSet1 = new DataSet
DataSet1 = Cn.FillDs("SELECT * FROM Login")