Public Function GetTeachers() As String Try Rs.Open("SELECT * FROM teachers", Conn) Dim retval As String Do Until Rs.EOF With Rs retval &= Rs.fields(0).value.ToString & "," & Rs.fields(1).value.ToString & "," & Rs.fields(2).value.ToString & vbCrLf Rs.MoveNext() End With Loop Rs.Close() GetTeachers = retval Catch ex As Exception Return "ERROR: " & ex.Message End Try End Function
Ich hoffe ihr könnt mir irgendwie helfen!
mfg stegi