Hi Cableguy
Thanks for the help, but it does not work!:sign0148:
Here is the complete routine:
Sub ImportDesign_Click
WaitCursor(True)
OpenDialog1.Filter = "CVS Files|*.csv"
OpenDialog1.Show
If OpenDialog1.File<>"" Then
If RadioBtn1.Checked=True Then
'Hor Pi
cmd.CommandText="Drop Table If Exists '" & Main.Job & "'.'HorPi'"
cmd.ExecuteNonQuery
Table2.LoadCSV (OpenDialog1.File, ",", True, True)
Con.CreateSQLTable ("Table2","HorPi")
End If
End If
WaitCursor(False)
Erase.Close
End Sub
Do you see anything wrong?:sign0085:
Thanks
ceaser