With myConnection.CreateCommand
            .CommandText = "ALTER TABLE deineTabelle ADD COLUMN datenfeldName" & _
              "COUNTER CONSTRAINT PrimaryKey PRIMARY KEY"
            .Connection.Open()
            .ExecuteNonQuery()
            .Connection.Close()
End With