gistfile1.vb

'Visual Basic 2010 Advantage Data Dictionary
'AdsConnection from VB 2010

Imports Advantage.Data.Provider

Public Class Connection
    Private Sub CreateNewTable()
      Dim Con As New AdsConnection
      Con.ConnectionString = _
                ("Data Source=D:\Project\Bin\Debug\MyDb.add;" & _
                 "User ID=;" & _
                 "Advantage Server Type=ADS_LOCAL_SERVER;")
      Con.Open
  Dim CMD As New AdsCommand
  Dim SqlStr As String = _
        ("Create Table TestTable (ID memo, Sname memo)")
  With CMD
    .Connection = Con
    .CommandType = CommandType.Text
    .CommandText = SqlStr
  End With
  Dim Onh As Integer = CMD.ExecuteNonQuery()
    End Sub
End Class