Sqlconnection conn=new Sqlconnection();
SqlCommand cmd=new SqlCommand("Query",conn);
cmd.ExecuteNonQuery();

Function Insert(ByRef Conn As OleDbConnection, ByRef connection_string As String, ByRef Transaction As OleDbTransaction, ByRef ConnCommand As OleDbCommand, ByRef CommandText As String)
        Dim da As New OleDbDataAdapter
 
        Conn = New OleDbConnection(connection_string)
 
        Conn.Open()
 
        Transaction = Conn.BeginTransaction
 
        ConnCommand.Connection = Conn
        ConnCommand.Transaction = Transaction
 
 
        ConnCommand.CommandText = CommandText
 
        Try
            da.InsertCommand = ConnCommand
            da.InsertCommand.ExecuteNonQuery()
 
            Transaction.Commit()
 
            MessageBox.Show("Saved succesfully", "Adding Data", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        Catch ex As Exception
 
            Transaction.Rollback()
            MessageBox.Show(ex.Message)
 
 
        End Try
 
        Conn.Close()
        ConnCommand.Dispose()
        da.Dispose()
        Transaction.Dispose()
 
        Return Nothing
    End Function