I changed from adodb to oledb and now its working
Code:
  newn = New OleDbConnection
        newn.ConnectionString = "provider=VFPOLEDB.1;Data Source= D:\" & shopname
        newn.Open()
Thanks dglienna for the support provided