public Function sendSelect (BYVal ds As DataSet, ByVal sqlstring As String, _
  ByVal tablename As String)
Try
da = new OleDbDataAdapter(sqlstring, conn)
da.Fill(ds, tablename)
catch ex As Exception
Console.WriteLine(ex.Message)
err = ex.Message.toString
Finally If conn.state = connectionstate.open then
con.close()
End Try
Return ds
End Function