---------------------------------
 
    Function CreateSlxID(ByVal Table As String, ByVal Q As Integer) As Data.OleDb.OleDbDataReader
 
        Dim SlxConn2 As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand("slx_dbids('" & Table & " ', " & Q & ")", SlxConn2)
 
        SlxConn2.ConnectionString = "Provider=SLXOLEDB.1;Data Source=;Initial Catalog=QASales;User Id=assword=;" & _
                                    "Persist Security Info=True;Extended Properties = Port=1706;Log=On"
        SlxConn2.Open()
        CreateSlxID = cmd.ExecuteReader()
        SlxConn2 = Nothing
    End Function

sNewId = CreateSlxID("C_MyTable", 10)

OleDbDataReader r = CreateSlxID("account", 10);
string msglist = string.Empty;
while (r.Read())
{
    msglist += r.GetString(0) + Environment.NewLine;
}
MessageBox.Show(msglist);