Lav et dataset fra sql

Jeg har kigget lidt rundt omkring, men kunne ikke finde noget kode der virker.
Jeg har en tabel i en sql-database, som jeg vil have muligheden for at overføre til et dataset.

Dette er den kode jeg bruger (vb.net) til at hente et enkelt data fra en tabel:

' con_string kunne fx være:
' SELECT [ID] FROM [USERS] WHERE [PHONE]=1234)

Public Function db_getsingle(ByVal con_string) 'HENTER VALGT DATA FRA DATABASEN (KUN ÉN DATA) OG LAVER EN STRING UDFRA DATAEN
        Try
            Dim cmd As New OleDb.OleDbCommand
            Dim connect As New OleDb.OleDbConnection("Provider=SQLOLEDB;Data Source=" & Servername & ";Initial Catalog=" & Databasename & ";User Id=" & dbUsername & ";Password=" & dbPassword)
            cmd.CommandText = con_string
            cmd.Connection = connect
            Try
                connect.Open()
            Catch
                connect.Close()
            End Try

            Dim data As String
            data = cmd.ExecuteScalar
            connect.Close()
            Return data
        Catch
            Return ""
            err_msg()
        End Try
    End Function

Problemet er at jeg ikke kan omskrive den kode til at hente data til dataset, noget hjælp?