Error al generar SP desde VB

Hola grupo y gracias por la atención.

Quisiera saber donde tengo el error en este paso, me da Incorrect syntax
near the keyword "UPDATE"
at system.data.sqlclient.sqlcommand.executenonquery()
El código es este:

Dim stringSQL As String = _

"IF EXISTS (" & _

"SELECT * " & _

"FROM " & DatabaseName & ".dbo.sysobjects" & " " & _

"WHERE Name = 'GetActualiza' " & _

"AND TYPE = 'p')" & vbCrLf & _

"DROP PROCEDURE GetActualiza"

If oConexion.State = ConnectionState.Closed Then

oConexion.Open()

End If

Dim scmd As New SqlCommand(stringSQL, oConexion)

Try

scmd.ExecuteNonQuery()

Catch expSql As SqlException

MessageBox.Show(expSql.ToString, Me.Text, _

MessageBoxButtons.OK, MessageBoxIcon.Error)

Exit Sub

End Try

scmd.CommandText = _

"CREATE PROCEDURE GetActualiza " & vbCrLf & _

"@mTable varchar(50)," & _

"@Limpiar bit" & _

"AS " & vbCrLf & _

"UPDATE " & "ZZSystem_Tables" & _

"SET " & _

"Limpiar = @Limpiar" & _

"WHERE" & _

"mTable = @mTable"

Try

scmd.ExecuteNonQuery()

Catch expSql As SqlException

MessageBox.Show(expSql.ToString, Me.Text, _

MessageBoxButtons.OK, MessageBoxIcon.Error)

Exit Sub

End Try