Instead of using dataset to add data to database, Try ADO.NET Insert directly.
Here is a sample:
Dim connectionstring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
Using myconnection As New SqlConnection(connectionstring)
Const Insertsql As String = "INSERT INTO Customers (CustomerID, CompanyName) VALUES (@CustomerID, @CompanyName)"
Dim mycommand As New SqlCommand(Insertsql, myconnection)
mycommand.Parameters.Add("@CustomerID", SqlDbType.NChar, 5, "CustomerID")
mycommand.Parameters.Add("@CompanyName", SqlDbType.NVarChar, 40, "CompanyName")
myconnection.Open()
mycommand.ExecuteNonQuery()
myconnection.Close()
End Using