How about adding them to the field seperated by a carraiage return:
' add a refence to Microsoft ActiveX Data Objects Library:
Dim DataBase As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
DataBase = "C:\MyDataBase"
' open Database Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OL
cn.CursorLocation = adUseClient
cn.Open
' open recordset
Set rs = New ADODB.Recordset
rs.Open "Select * From MyTable", cn, adOpenKeyset, adLockOptimistic
' add new record to Table
rs.AddNew
rs.Fields("Lines").Value = X1 & vbCr & X2 & vbCr & Y1 & vbCr & Y2
rs.Update
' update current record
rs.Fields("Lines").Value = X1 & vbCr & X2 & vbCr & Y1 & vbCr & Y2
rs.Update
' close recordset
rs.Close
Set rs = Nothing
' close connection
cn.Close
Set cn = Nothing
Main Topics
Browse All Topics





by: dj__jebusPosted on 2003-11-11 at 15:25:08ID: 9726774
I just found the menu thing insert a subdatasheet. Is this along the lines if something I could use? How does it work and how would I implement it in my vb project to make it work? Or is it completely unrelated?
Thanks Jebus