[VB.net] String zusammensetzen geht nicht

[zerberos]

Hallo zusammen,

ich habe ein Problem. Ich will mit Hilfe des String Builders einen Select String zusammensetzen. Das ganze hat vorher auch in C# einwandfrei funktioniert.

Jetzt habe ich das ganze in VB.Net umgesetzt und es funktioniert natürlich nicht mehr:

Bekomme folgende Fehlermeldung:

ORA-00936: missing expression

Ich lasse mir die Felder der Tabelle in einen DataGridView anzeigen und der Benutzer kann die Felder auswählen

Hier ist mein Code:

'Abfrage ausgewählte Felder und Select String Erstellung
Dim selectedRowCount As Int32 = dataGridView1.Rows.GetRowCount(DataGridViewElementStates.Selected)
If selectedRowCount > 0 Then
sb.Append("Select ")
For i = 0 To i < selectedRowCount Step 1
sb.Append(dataGridView1.SelectedRows(i).Cells(1).Value.ToString())
sb.Append(", ")
Next i
sb.Append(" from " + tabellenname + " where " + where)
End If

Dim commandstring As String = sb.ToString()
commandstring = commandstring.Replace(", from", " from")

Dim daadapter As OracleDataAdapter = New OracleDataAdapter(commandstring, con)
daadapter.Fill(dt)
daadapter.Fill(ds)

Die varaibalen tabellenname und where werden korrekt gefüllt. Nur der fügt die markierten Felder nicht ein. Vorher in C# hat dies allerding funktioniert. Weiß einer woran das liegt?

Das steht in der Variable commandstring:
Select from tabelle1 where Datum = '05102007'