tank'u but i dont understand'u i've this ;

Public Function buscar(ByVal registro As integer) As DataSet
Dim ds As New DataSet
Dim olecommand As New OleDbCommand

olecommand.CommandText = "select * from recordfile "
Dim oleadapter As New OleDbDataAdapter
'Dim id As New OleDbParameter("@id", OleDbType.Char, 10)

'id.Value = registro

'olecommand.Parameters.Add(id)

olecommand.CommandType = CommandType.Text

olecommand.Connection = oleconect
oleadapter.SelectCommand = olecommand
Try
' oleconect.Open()
'olecommand.ExecuteNonQuery()
oleadapter.Fill(ds)
'oleconect.Close()
Return ds
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try


End Function

parameter registro is the rec number i'need obtain datas to that number. than'u how i make that.