Agreed , but I would like to understand why though
"Cor Ligthert" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Whaletyr,
>
> I never do it the way as you. Can you try this, it would be strange I
admit
> when 10 tables work. However now you have nothing,
>
> Cor
>
> \\\
> Dim STARTYPEtable As new DataSet
> Dim constring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=C:\Documents and Settings\Administrator\My
> Documents\QUEST.mdb;Persist Security Info=False"
> Dim condb As New OleDb.OleDbConnection(constring)
> Dim DASTARTYPE As New OleDb.OleDbDataAdapter("SELECT * FROM STAR_TYPE",
> condb)
>
> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles MyBase.Load
> DASTARTYPE.Fill(STARTYPEtable)
> Dim DBSTARTYPE As New OleDb.OleDbCommandBuilder(DASTARTYPE)
> DataGrid1.DataSource = STARTYPEtable.tables(0)
>
> End Sub
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
>
> if STARTTYPEtable.haschanges then
> DASTARTYPE.Update(STARTYPEtable)
> end if
>
>
> End Sub
>
>