anyone see the trouble with this

im trying to assign a value taken from the primary key field and increment it by one to use in an insert

Dim z As Integer
Dim max As String = "select z = MAX(c_msg_nr) from tb_orig_msg"
Dim cmd1 As New SqlCommand(max, oSQLConn)
z += 1