insert i db

Hej.

Jeg er ved at lave en funktion der modtager en String s, som er en insert-sql-sætning.

Jeg kan dog ikke få den til at virke:

Function qInsert(ByVal s As String) As Boolean

Dim dataAdapter As SqlDataAdapter = New SqlDataAdapter()
Dim result As Object = -2

dataAdapter.InsertCommand.Connection = objConnection
dataAdapter.InsertCommand.CommandText() = s
dataAdapter.InsertCommand.CommandType = commandType.Text
result = dataAdapter.InsertCommand.ExecuteNonQuery()

Return True

End Function

Det virker dog overhovedet ikke..
hvad gør jeg galt..

(forresten objConnection er min åbne databaseforbindelse).

Tj.