Я хотел бы иметь возможность сделать следующее, но не уверен, что SQLCommandBulder взорвется. (У меня еще нет всех настроек кода для его тестирования).
Dim renameFileCmd As SqlCommand = New SqlCommand("select * from FileVersions where vpk = @vpk", sqlConn)
renameFileCmd.Parameters.Add("@vpk", SqlDbType.BigInt)
renameFileCmd.Parameters.Item(0).Value = vpk
renameFileCmd.CommandType = CommandType.Text
Dim renameFileAdptr As SqlDataAdapter = New SqlDataAdapter(renameFileCmd)
Dim renameFileBuilder As SqlCommandBuilder = New SqlCommandBuilder(renameFileAdptr)
Dim renameFileDataTable As DataTable = New DataTable
renameFileAdptr.Fill(renameFileDataTable)