Dim loDataParameter As IDbDataParameter = Nothing Dim loSqlCommand As SqlCommand = Nothing Dim loSqlDataAdapter As SqlDataAdapter = Nothing Dim loSqlParameter As SqlParameter = Nothing Dim loParameters As New Collection loSqlDataAdapter = New SqlDataAdapter loSqlCommand = New SqlCommand loSqlParameter = New SqlParameter() loSqlParameter.ParameterName = "ReturnMsg" loSqlParameter.Value = "Your value" loSqlParameter.SqlDbType = SqlDbType.VarChar loSqlParameter.Size = 200 loParameters.Add(loSqlParameter) ' Only add the parameters if we have some If loParameters.Count > 0 Then ' For each parameter For Each loDataParameter In loParameters loSqlCommand.Parameters.Add(loDataParameter) Next End If loSqlDataAdapter.SelectCommand = loSqlCommand