THERES THE CODE...IM NOT SURE IF I CAN DO LIKE THIS...
IM REALLY CONFUSE...
Thanks...
Function OpenTable() As DataSet
Dim strDSN As String
= "Provider=Micro soft.Jet.OLEDB. 4.0;Data
Source=c:\Conve rsao\Optiware98 .MDB;pwd=et98ji f%Znf[2)"
Dim strSQL As String = "SELECT * FROM Clientes"
Dim Conn As OleDbConnection
Dim DA As OleDbDataAdapte r
Dim Ds As DataSet
Ds = New DataSet()
Conn = New OleDbConnection (strDSN)
DA = New OleDbDataAdapte r(strSQL, Conn)
Try
DA.SelectComman d.CommandType =
CommandType.Sto redProcedure
DA.Fill(Ds, "Mensagens" )
Return Ds
Catch e As Exception
MessageBox.Show (e.Message)
Finally
Conn.Close()
End Try
End Function
-----Original Message-----
Hi Nuno,
Are you using VB.net with ado.net?
or
VB.Net with DAO?
or
MS Access?
Cor
.