Dim ds As DataSet = New DataSet Dim dt As New OleDbDataAdapter("select * from Login", _ "Provider=VFPOLEDB.1;Data Source=D:\Login=;Password='';Collating Sequence=MACHINE") dt.Fill(ds)