okay ...thanx for rplay
re8.Open("select distinct(Dist_Win_Name) from Distributers ,Daily_transaction where Distributers.Dist_Win_Name not in (select Dist_Name from Daily_transaction where Daily_transaction.Agent_No ='" + ComboBox1.SelectedItem + "'and Daily_sts='" + str1 + "' and Tran_Date between " + DateTimePicker1.Value + " and " + DateTimePicker1.Value + " and Distributers.Agent_No=Daily_transaction.Agent_No and Distributers.Agent_Name= Daily_transaction.Agent_Name and Daily_transaction.Agent_Name ='" + ComboBox1.SelectedItem + "'and Daily_sts='" + str1 + "'and Tran_Date between " + DateTimePicker1.Value + " and " + DateTimePicker1.Value + "", DB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
For i = 0 To re8.RecordCount - 1
dataa = re8("Dist_Win_Name").Value
RE18.Open("select * from Daily_transaction Where Agent_No = '" + ComboBox1.SelectedItem + "' and Agent_Name = '" + TextBox2.Text + "' and Edition_serial='" + TextBox4.Text + "' and Tran_Date=#" + DateTimePicker1.Value + "#", DB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
RE18.AddNew()
RE18("Agent_No").Value = ComboBox1.SelectedItem
RE18("Agent_Name").Value = TextBox2.Text
RE18("Dist_Win_No").Value = TextBox3.Text
RE18("Dist_Name").Value = dataa
RE18("Dist_Add").Value = ""
RE18("Tran_Date").Value = DateTimePicker1.Value
RE18("Rec_Copies").Value = 0
RE18("Rec_Sold").Value = 0
RE18("Rec_Returend").Value = 0
RE18("Dist_percent").Value = 0
RE18("Note").Value = 0
RE18("Daily_sts").Value = "P"
RE18("Edition_serial").Value = TextBox4.Text
RE18("Quantity").Value = 0
RE18("Estmait").Value = 0
RE18.Update()
're2.MoveLast()
'DB.Close()
RE18.Close()
Next
End If
End Sub

and error messege apears in the select statment