Private Sub gd()
dt = New DataSet
sql = "select * from TBLchilddata,TBLlake,TBLvaccine where TBLvaccine.idch=TBLlake.idch and TBLlake.idch=TBLchilddata.tid"
da = New OleDbDataAdapter(sql, con)
cb = New OleDbCommandBuilder(da)
da.Fill(dt, "TBLchilddata")
TxtId.DataBindings.Add("text", dt, "TBLchilddata.tid")
Txtname.DataBindings.Add("text", dt, "TBLchilddata.tname")
'Cboadress
Cboadress.DataBindings.Add("text", dt, "TBLchilddata.adress")
'Txtblock
Txtblock.DataBindings.Add("text", dt, "TBLchilddata.block_id")
'Txtdoor
Txtdoor.DataBindings.Add("text", dt, "TBLchilddata.door_id")
'Dtpbirth
Dtpbirth.DataBindings.Add("text", dt, "TBLchilddata.birth", True)
'Txtfamily
Txtfamily.DataBindings.Add("text", dt, "TBLchilddata.family_id")
'Cbokind
Cbokind.DataBindings.Add("text", dt, "TBLchilddata.kind")
End Sub